home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene Storm
/
Scene Storm - Volume 1.iso
/
coding
/
asm
/
demos
/
retinarave
/
include
/
exec
/
initializers.i
< prev
next >
Wrap
Text File
|
1980-01-03
|
474b
|
41 lines
IFND EXEC_INITIALIZERS_I
EXEC_INITIALIZERS_I = 1
INITBYTE MACRO
DC.B $e0
DC.B 0
DC.W \1
DC.B \2
DC.B 0
ENDM
INITWORD MACRO
DC.B $d0
DC.B 0
DC.W \1
DC.W \2
ENDM
INITLONG MACRO
DC.B $c0
DC.B 0
DC.W \1
DC.L \2
ENDM
INITSTRUCT MACRO
DS.W 0
IFC '\4',''
COUNT\@ SET 0
ENDC
IFNC '\4',''
COUNT\@ SET \4
ENDC
CMD\@ SET [[\1]<<4]!COUNT\@
IFLE [\2]-255
DC.B [CMD\@]!$80
DC.B \2
MEXIT
ENDC
DC.B CMD\@!$0C0
DC.B [[\2]>>16]&$0FF
DC.W [\2]&$0FFFF
ENDM
ENDC